﻿Public Class WorkspacesConfig

    Private Sub Selectionner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Selectionner.Click
        workspaceBrowser.ShowDialog(Me)
        workspacePath.Text = workspaceBrowser.SelectedPath
    End Sub


    Private Sub btnValider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnValider.Click
        Settings.[Default].WorkSpacePath = workspaceBrowser.SelectedPath
        Settings.Default.Save()
        Settings.[Default].Reload()
        Me.Dispose()
    End Sub

    Private Sub WorkspacesConfig_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        workspacePath.Text = Settings.[Default].WorkSpacePath
        workspaceBrowser.SelectedPath = workspacePath.Text
    End Sub
End Class